| Filename | (eval 1038)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 15 statements in 114µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 5 | 3 | 3 | 110µs | 161µs | CGI::https |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 161µs (110+51) within CGI::https which was called 5 times, avg 32µs/call:
# 2 times (65µs+20µs) by C4::Auth::get_template_and_user at line 381 of /usr/share/koha/lib/C4/Auth.pm, avg 42µs/call
# 2 times (35µs+24µs) by CGI::protocol at line 4 of (eval 1115)[CGI.pm:869], avg 29µs/call
# once (11µs+8µs) by C4::Auth::get_template_and_user at line 832 of CGI.pm | ||||
| 2 | 5 | 19µs | local($^W)=0; | ||
| 3 | 5 | 24µs | 5 | 51µs | my ($self,$parameter) = self_or_CGI(@_); # spent 51µs making 5 calls to CGI::self_or_CGI, avg 10µs/call |
| 4 | 5 | 71µs | return $ENV{HTTPS} unless $parameter; | ||
| 5 | return $ENV{$parameter} if $parameter=~/^HTTPS/; | ||||
| 6 | $parameter =~ tr/-/_/; | ||||
| 7 | return $ENV{"HTTPS_\U$parameter\E"} if $parameter; | ||||
| 8 | my(@p); | ||||
| 9 | for (keys %ENV) { | ||||
| 10 | push(@p,$_) if /^HTTPS/; | ||||
| 11 | } | ||||
| 12 | return @p; | ||||
| 13 | } | ||||
| 14 | |||||
| 15 | ; |